﻿' ################################################################################
' #                             EMBER MEDIA MANAGER                              #
' ################################################################################
' ################################################################################
' # This file is part of Ember Media Manager.                                    #
' #                                                                              #
' # Ember Media Manager is free software: you can redistribute it and/or modify  #
' # it under the terms of the GNU General Public License as published by         #
' # the Free Software Foundation, either version 3 of the License, or            #
' # (at your option) any later version.                                          #
' #                                                                              #
' # Ember Media Manager is distributed in the hope that it will be useful,       #
' # but WITHOUT ANY WARRANTY; without even the implied warranty of               #
' # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                #
' # GNU General Public License for more details.                                 #
' #                                                                              #
' # You should have received a copy of the GNU General Public License            #
' # along with Ember Media Manager.  If not, see <http://www.gnu.org/licenses/>. #
' ################################################################################

Namespace EBML
    Public MustInherit Class EbmlValueElement
        Inherits EbmlElement
        Public Sub New(ByVal id As Long)
            MyBase.New(id)
        End Sub

        Public Overrides ReadOnly Property IsContainer() As Boolean
            Get
                Return False
            End Get
        End Property

        Public MustOverride Sub UpdateValue(ByVal data As Byte(), ByVal offset As Integer, ByVal size As Integer)
        Public MustOverride Sub UpdateValue(ByVal o As Object)
        Public MustOverride Function GetValue() As Object
    End Class
End Namespace
